caractres accentus pour Sharp PC1500 ( pas de programme )
tir du magazine Hebdogiciel N53

	Ce programme permet de dfinir jusqu' 64 caractres, toutes les formes de caractres, aussi bien graphiques qu'accentus, sont permises.
	38 caractres sont dj dfinis ( , , , , , , , , , , , , , , , ->, <-, ^, ', [, ], ...). Ils sont directement accessibles grce  la pression de quelques touches aussi bien en mode RUN, PRO ou RESERVE.
1- faire NEW&3AFC afin de librer les 567 octets ncessaires pour le programme
2- rentrer le programme Basic
3- faire RUN puis NEW afin d'effacer le programme qui est maintenant inutile
4- ensuite faire POKE &7858,&3A,&E0,&80,&39 puis POKE &7904,&55
5- ds maintenant, la touche SHIFT se comporte comme la touche SMALL;elle permet d'accder  des caractres redfinis de la faon suivante :
	On disposait dj des majuscules et des minuscules grce  SMALL;maintenant ( grce  SHIFT et aux gabarits I, II, III de la fonction RESERVE ), on dispose, en plus, de trois claviers diffrents dont on peut redfinir  notre aise les caractres;deux claviers, le premier et le troisime sont dj dfinis, pour obtenir les caractres programms, il suffit :
- de slectionner le gabarit grce  la touche
- de visualiser le contenu de l'cran grce  la touche RCL ( s'il y a eu pression de la touche )
- d'appuyer sur la touche SHIFT puis sur la touche correspondante au caractre souhait ( la pression sur A donnera le caractre ""  l'cran ).

Comment programmer le deuxime clavier?
	Le gnrateur de caractres se situe aux adresses &3A0E  &3A8F. On peut dfinir jusqu' 26 caractres ( on rappelle qu'un caractre comporte cinq codes pour tre dfini ainsi, 'a' s'crit &38,&44,&44,&3C,&40 et 'i' &00,&00,&7D,&00,&00 ).
	Le programme qui suit permet de dfinir le deuxime clavier :
10 FOR I=&3A0E TO &3A8F
20 ON ERROR GOTO 100
30 READ A:POKE I,A
40 NEXT I
50 DATA...le nombre de donnes doit tre un multiple de cinq et ne doit pas dpasser 130 ( 26*5)100:END
Remarque : l'imprimante ne reconnait pas ces nouveaux caractres;elle laisse un espace blanc. Une astuce doit exister;il ne reste plus qu' trouver...

Programme :
1 REM caractres accentus **pc 1500**
2 REM lefevre F. 19/09/84
10 FOR I=0 TO 1000
20 READ A:IF A=&FF GOTO 1000
30 POKE (&38C5+1),A
40 NEXT I
50 DATA &BE,&E4,&2C,&48,&78,&4A,&50,&B7,1,&89,2,&D,&E,&4D,1,&8B,6,&EB,&76,&4E,2,&8E
52 DATA 5,&BE,&E2,&4A,&8E,&24,&BE,&E2,&4A,&ED,&76,&4E,8,&89,&1B,&FD,&88,&48,&39,&4A
54 DATA &12,&F7,&8B,&E,&FD,&C8,&B5,0,&F7,&8B,4,&FD,&8A,&9E,&E,&FD,&8A,&8E,1,5,&FD
56 DATA &A,&B7,&F,&89,3,&BE,&E3,&3F,&F9,&EB,&7B,&E,&40,&9A
60 DATA &71,&A0,&77,&A1,&65,&A2,&72,&A3,&74,&A4,&79,&A5,&75,&A6,&69,&A7,&6F,&A8
62 DATA &70,&A9,&61,&AA,&73,&AB,&64,&AC,&66,&AD,&67,&AE,&68,&AF,&6A,&B0,&6B,&B1
64 DATA &6C,&B2,&7A,&B3,&78,&7E,&63,&7F,&76,&B4,&62,&B5,&6E,&7B,&6D,&7D,0,0
70 DATA &71,&B6,&77,&B7,&65,&B8,&72,&B9,&74,&BA,&79,&BB,&75,&BC,&69,&BD,&6F,&BE
72 DATA &70,&BF,&61,&C0,&73,&C1,&64,&C2,&66,&C3,&67,&C4,&68,&C5,&6A,&C6,&6B,&C7
74 DATA &6C,&C8,&7A,&C9,&78,&CA,&63,&CB,&76,&CC,&62,&CD,&6E,&CE,&6D,&CF,0,0
80 DATA &61,&D0,&73,&D1,&64,&D2,&66,&D3,&67,&D4,&68,&D3,&67,&D4,&68,&D5,&6A,&D6,&6B,&D7,&6C,&D8
82 DATA &7A,&D9,&78,&DA,&63,&DB,&76,&DC,&62,&DD,&6E,&DE,&6D,&DF,0,0
100 DATA &38,&45,&46,&3C,&40,&30,&4A,&49,&3A,&40,&38,&45,&44,&3D,&40
102 DATA &38,&54,&56,&55,&18,&38,&55,&56,&54,&18,&38,&56,&55,&56,&18
104 DATA &38,&55,&54,&55,&18,&3C,&41,&42,&20,&7C,&38,&42,&41,&22,&78
106 DATA &3C,&41,&40,&21,&7C,&30,&4A,&49,&4A,&30,&38,&45,&44,&45,&38
108 DATA 0,2,&79,2,0,0,1,&7C,1,0,&C,&52,&32,&12,&8
110 DATA 8,8,&2A,&1C,8,8,&1C,&2A,8,8,8,4,&3E,4,8
112 DATA 8,&10,&3E,&10,8,0,0,&B,7,0,0,&7F,&41,&41,0,0,&41,&41,&7F,0,&FF
1000 FOR I=0 TO 1000
1010 ON ERROR GOTO 2000
1020 READ A:POKE (&3A90+I),A
1030 NEXT I
1050 DATA &41,&7F,&41,1,3,8,&55,&7F,&55,8,&58,&64,4,&64,&58
1052 DATA &63,&55,&49,&41,&63,&42,&24,&18,&20,&40,&30,&48,&48,&30,&48
1054 DATA 2,&34,&48,&34,2,&20,&52,&45,&49,&31,&3E,&55,&15,&16,8
1056 DATA 0,2,5,2,0,&24,&22,&24,&28,&24,&54,&34,&1C,&16,&15,0,&44,&4A,&51,0
1058 DATA 0,&51,&4A,&44,0,0,&24,&2E,&24,0,&18,&24,&18,&24,&18
1100 DATA &ED,&76,&4E,&40,&8B,8,&B5,&12,&AE,&38,&EF,&BA,&38,&C5,&ED,&76,&4E,&20,&8B
1102 DATA 4,&B5,&48,&9E,&10,&B5,&7E,&9E,&14
2000 END